home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / CDEF / time.def < prev   
Text File  |  1996-04-02  |  1KB  |  58 lines
  1. (* Copyright (c) xTech 1992,95.  All Rights Reserved *)
  2. <*+ CSTDLIB  *>
  3. <*+ NOHEADER *>
  4. <*+ M2ADDTYPES *>
  5. <*+ M2EXTENSIONS *>
  6. DEFINITION MODULE [2] time;
  7.  
  8. FROM SYSTEM IMPORT int, size_t, ADDRESS;
  9.  
  10. <*# IF __GEN_C__ THEN *>
  11. <*$< GENTYPEDEF- *>
  12. <*# END *>
  13. TYPE
  14.   tm = RECORD
  15.          tm_sec   : int;
  16.          tm_min   : int;
  17.          tm_hour  : int;
  18.          tm_mday  : int;
  19.          tm_mon   : int;
  20.          tm_year  : int;
  21.          tm_wday  : int;
  22.          tm_yday  : int;
  23.          tm_isdst : int;
  24.        END;
  25. <*$>*>
  26.  
  27. TYPE
  28.   clock_t;
  29.   time_t;
  30.  
  31. PROCEDURE asctime(VAR t: tm): ADDRESS;
  32. (* returns pointer to string Tue Aug 12:00:00 1999 \n 0c *)
  33.  
  34. PROCEDURE clock(): clock_t;
  35. (* no of clock after start process *)
  36.  
  37. PROCEDURE ctime(VAR t: time_t): ADDRESS;
  38. (* returns pointer to string Tue Aug 12:00:00 1999 \n 0c *)
  39.  
  40. PROCEDURE difftime(time2,time1: time_t): LONGREAL;
  41.  
  42. PROCEDURE gmtime(VAR t: time_t): ADDRESS;
  43. (* any t converts to pointer to tm *)
  44.  
  45. PROCEDURE localtime(VAR t: time_t): ADDRESS;
  46. (* t (time() ) converts to pointer to tm *)
  47.  
  48. PROCEDURE mktime(VAR t: tm): time_t;
  49. (* converts tm to time *)
  50.  
  51. PROCEDURE time(VAR t: time_t): time_t;
  52. (* returns time in second *)
  53.  
  54. PROCEDURE strftime(VAR s: ARRAY OF CHAR; maxsize: size_t;
  55.           format: ARRAY OF CHAR; VAR t: tm): size_t;
  56.  
  57. END time.
  58.